home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / NSPLTABS.PRG < prev    next >
Text File  |  1991-10-29  |  1KB  |  44 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: NSPLTABS.PRG      Copyright: HRF Associates, Inc.
  4. *   Date Created: 10/29/11           Language: Clipper
  5. *   Time Created: 01:02:53             Author: Bob Fogle
  6. *
  7. *.............................................................................
  8. * Supplemental SEGUE function for setting number of spaces for tab expansion.
  9. * Functionally equivilent to N_SPLTABS function in NETLIB library.
  10. *
  11. FUNCTION NSPLTABS_
  12. *Purpose : To specify banner page text.
  13. *Usage     : NSPLTABS_([<expN1>])
  14. *        :
  15. * Where  : <expN1> = Tab spaces [0..18]
  16. *        :      0 = no tab expansion
  17. *        :
  18. PARAMETERS tabs
  19. LOCAL mtabs
  20. PRIVATE rtn :=0
  21.  
  22. do while .t.
  23.   * Check to make sure passed variable types are correct.
  24.   if valtype(tabs)<>'N' .AND. tabs<>nil
  25.     rtn = -101
  26.     exit
  27.   endi
  28.  
  29.   * Set up defaults
  30.   mtabs =  if(valtype(tabs)=='N',tabs,0)
  31.  
  32.   * Get/Set tabs (form) number
  33.   if pcount()=0             // If no arguments, return current setting.
  34.     rtn = PRJBDFG(3)        // Get Default Print Job Flags (Number of Tab spaces)
  35.   else
  36.     rtn = PRJBDFS(,,mtabs)  // Set Default Print Job Flags (Number of Tab spaces)
  37.   endi
  38.   exit
  39. endd
  40. RETURN rtn
  41.  
  42.  
  43.  
  44.